home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
pc
/
LOGIC Apple II 5.25" Library - DOS Part 7
/
DOS222.dsk
/
MAGIC.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
787b
|
61 lines
1 PRINT
2 PRINT
3 PRINT
4 PRINT
5 PRINT
6 PRINT
7 PRINT
8 PRINT
9 PRINT
10 PRINT " NOW YOU SEE IT"
20 FOR D = 1 TO 800: NEXT D
30 PRINT
40 PRINT
50 PRINT
60 PRINT
70 PRINT
80 PRINT
90 PRINT
100 PRINT
110 PRINT
120 PRINT
130 PRINT
140 PRINT
150 PRINT
160 PRINT
170 PRINT
180 PRINT
190 PRINT
200 PRINT
210 PRINT
220 PRINT
230 PRINT
240 PRINT
250 PRINT
260 PRINT " NOW YOU DON'T"
265 FOR D = 1 TO 200: NEXT D
270 PRINT
280 PRINT
290 PRINT
300 PRINT
310 PRINT
320 PRINT
330 PRINT
340 PRINT
350 PRINT
360 PRINT
370 PRINT
380 PRINT
390 PRINT
400 PRINT
410 PRINT
420 PRINT
430 PRINT
440 PRINT
450 PRINT
460 PRINT
470 PRINT
480 PRINT
490 PRINT
500 GOTO 10
510 END